home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HyperLib 1997 Winter - Disc 1
/
HYPERLIB-1997-Winter-CD1.ISO.7z
/
HYPERLIB-1997-Winter-CD1.ISO
/
オンラインウェア
/
BUS
/
Outline PRO 1.151 folder.sit
/
Outline PRO 1.151 folder
/
D1
/
stack.txt
< prev
Wrap
Text File
|
1995-10-19
|
5KB
|
153 lines
-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=16, y1=239, x2=352, y2=428)
-- screen: Rect(x1=0, y1=0, x2=832, y2=624)
-- card dimensions: w=512 h=480
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2792
-- card count: 1
-- first card id: 2872
-- list block id: 3603
-- print block id: 0
-- font table block id: 3415
-- style table block id: 3103
-- free block count: 0
-- free size: 0 bytes
-- total size: 7968 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x02218000
-- compacted by hypercard version: 0x02218000
-- modified by hypercard version: 0x02218000
-- opened by hypercard version: 0x02218000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0xDBD9DA6B
----- HyperTalk script -----
ON OPENSTACK
SET RECT OF FLD"NOTE" TO -1,-1,WIDTH OF CARD WINDOW+1,HEIGHT OF CARD WINDOW-15
set the loc of BG BUTTON"RESIZE" to the width of card window - 8,the height of card window - 8
END OPENSTACK
ON RESUMESTACK
-- GLOBAL WDW
-- IF NUMBER OF LINES OF THE WINDOWS<8 THEN
-- IF WDW IS 1 THEN GO HOME
-- SEND CLOSESTACK TO THIS STACK
-- END IF
END RESUMESTACK
ON CLOSESTACK
PUT EMPTY INTO FLD"NOTE"
IF FREESIZE OF THIS STACK>SIZE OF THIS STACK DIV 10 THEN
DOMENU"COMPACT STACK"
END IF
PASS CLOSESTACK
END CLOSESTACK
ON RESIZE
select after text of fld"NOTE"
PUT ITEM 2 OF THE SELECTEDLOC+SCROLL OF FLD"NOTE" INTO HT
IF HT>342-TOP OF FLD"NOTE" THEN PUT 342-TOP OF FLD"NOTE" INTO HT
IF HT<55 THEN PUT 55 INTO HT
SET RECT OF FLD"NOTE" TO LEFT OF FLD"NOTE",TOP OF FLD"NOTE",RIGHT OF FLD"NOTE",TOP OF FLD"NOTE"+HT+1
SET RECT OF CARD WINDOW TO LEFT OF CARD WINDOW,TOP OF CARD WINDOW,RIGHT OF CARD WINDOW,TOP OF CARD WINDOW+TOP OF FLD"NOTE"+HT
END RESIZE
-- ON IDLE
-- IF THE SELECTEDLOC IS EMPTY AND THE SELECTEDFIELD IS NOT "message box"
-- THEN SELECT AFTER TEXT OF FLD"NOTE"
-- END IDLE
ON CLOS
GLOBAL NMA,IDT,MAT--,CDN,STN,SLOC
HIDE CARD WINDOW
PUT THE SHORT NAME OF THIS STACK INTO M1
DELETE CHAR 1 OF M1
GO (ITEM 2 OF LINE M1 OF NMA&LAST LINE OF NMA)
PUT EMPTY INTO LINE M1 OF NMA
END CLOS
on CLOSE
GLOBAL NMA,IDT,MAT,RLIN,TP,BT--,CDN,STN,SLOC
IF NMA IS EMPTY THEN --- FUCK! PhaaaaaaaaaaaaacK!!!!
PASS CLOSE
END IF
-- PUT THE TICKS INTO T
HIDE CARD WINDOW
PUT THE SHORT NAME OF THIS STACK INTO M1
DELETE CHAR 1 OF M1
PUT FLD"NOTE" INTO NT
GO (ITEM 2 OF LINE M1 OF NMA&LAST LINE OF NMA)
PUT ITEM 1 OF LINE M1 OF NMA INTO NID
PUT NT INTO FLD (NID-1)
PUT EMPTY INTO LINE M1 OF NMA
HIDE BG BUTTON"INS"
HIDE BG BUTTON"GEN"
IF VISIBLE OF FLD"INPUT" IS TRUE THEN
ENTFLD 1
HIDE FLD"INPUT"
END IF
IF LINE 1 OF IDT IS NID THEN PUT 1 INTO NRL
ELSE PUT (NUMBER OF LINES OF CHAR 1 TO OFFSET(RETURN&NID&RETURN,IDT) OF IDT)+1 INTO NRL
IF LINE 1 OF MAT=NRL THEN PUT 1 INTO TP
ELSE
IF RETURN&NRL&RETURN IS NOT IN MAT THEN EXIT CLOSE
PUT (NUMBER OF LINES OF CHAR 1 TO OFFSET(RETURN&NRL&RETURN,MAT) OF MAT)+1 INTO TP
END IF
PUT NRL INTO RLIN
HYOUJI TP,RLIN
PUT THE RESULT+TP INTO BT
SELECT LINE TP TO BT OF FLD"MAIN"
--PUT THE TICKS-T
end CLOSE